home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / games2 / cyberspc.lha / CS-Install / CS-Install.deutsch next >
Text File  |  1996-04-13  |  13KB  |  440 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;
  3. ;;;  ShowCopyrightMessage procedure
  4. ;;;
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6. (procedure ShowCopyrightMessage
  7.     (message "Cyberspace:    Das erste Computersimulationsspiel\n\n"
  8.         "Version" installVersion "     © 1996 Cyberspace D-Zign System \n\n"
  9.         "Dieses Programm ist SHAREWARE, alle Rechte sind vorbehalten."
  10.     )
  11. )
  12.  
  13. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  14. ;;;
  15. ;;;  CompleteStep procedure
  16. ;;;
  17. ;;;  Shows how much of the work is completed.
  18. ;;;
  19. ;;;  Uses: completeLevel        Percent of work already done
  20. ;;;        completeIncrement    Percent to add for this step
  21. ;;;
  22. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  23. (procedure CompleteStep
  24.     (set completeLevel (+ completeLevel completeIncrement))
  25.     (complete completeLevel)
  26. )
  27.  
  28.  
  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30. ;;;
  31. ;;;  SelectInstallDir procedure
  32. ;;;
  33. ;;;  Allows the user to select an installation directory (full path),
  34. ;;;  which will be stored in the installDir variable.
  35. ;;;
  36. ;;;  Uses:  installDir      old installation directory path
  37. ;;;
  38. ;;;  Sets:  installDir      installation directory path
  39. ;;;
  40. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41. (set installDir "Games:")
  42. (procedure SelectInstallDir
  43.     (set installDirParent (pathonly installDir))
  44.  
  45.     ((set installDirParent (expandpath (askdir
  46.         (prompt "Bitte ein Installationsverzeichnis auswählen. "
  47.             "Ein Verzeichnis Cyberspace wird erstellt."
  48.         )
  49.         (help "Cyberspace wird in einem Verzeichnis `Cyberspace' erstellt. "
  50.               "Zum Beispiel, sounds werden in `Cyberspace/snd', text "
  51.               "in `Cyberspace/text' gespeichert, und so weiter.\n\n"
  52.               "Ein typisches Verzeichnis für Cyberspace ist "
  53.               "`Games:Cyberspace' oder ähnliches. In diesem Beispiel"
  54.               "sollte man das Verzeichnis `Games:' "
  55.               "`auswählen.\n\n"
  56.               @askdir-help
  57.         )
  58.         (default (pathonly installDir))
  59.         (newpath)
  60.         )))
  61.  
  62.     (CompleteStep)
  63.  
  64.     (set installDir (tackon installDirParent "Cyberspace"))
  65.  
  66.     (message "Installation von Cyberspace in " installDir ".\n\n"
  67.         "sounds werden nach " (tackon installDir "snd")
  68.         ", texts nach " (tackon installDir "text")
  69.         ", brushes nach " (tackon installDir "brush")
  70.         " kopiert, und so weiter."
  71.     ))
  72.     (set @default-dest installDir)
  73. )
  74.  
  75.  
  76. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  77. ;;;
  78. ;;;  SelectLHAProgram procedure
  79. ;;;
  80. ;;;  Lets the user select the LHA binary; sets the variable lhaProgram.
  81. ;;;
  82. ;;;  Sets: lhaProgram   path of LhA binary
  83. ;;;
  84. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  85. (procedure SelectLHAProgram
  86.  
  87.     (set l 1)
  88.     (while l
  89.     (   (set lhaProgram (askfile
  90.         (prompt "Bitte das lhA-Packprogramm auswählen .")
  91.         (help "Das der Installer ihre Pfadsetzungen ignoriert, müssen "
  92.           "den kompletten Pfad zum LhA-File eingeben.\n\n "
  93.           @askfile-help
  94.         )
  95.         (default "LhA")
  96.     ))
  97.     (if (exists lhaProgram)
  98.     (   (set l 0)
  99.     ))
  100.     ))
  101.     (CompleteStep)
  102. )
  103.  
  104.  
  105. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  106. ;;;
  107. ;;;  UnpackArchives procedure
  108. ;;;
  109. ;;;  Allows the user to select and unpack LhA archives.
  110. ;;;
  111. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  112. (procedure UnpackArchivesHarddisk
  113.     ((SelectLHAProgram)
  114.     (CompleteStep)
  115.  
  116.     (message "Installer wird nun alle nötigen Verzeichnisse erstellen und "
  117.         "anschließend alle Dateien in diese Verzeichnisse entpacken. "
  118.     )
  119.     (makedir installDir)
  120.     (set installDirStandard installDir)
  121.     (if (<> (substr installDir (- (strlen installDir) 1)) "/")
  122.         ((set installDir (cat installDir "/"))
  123.     ))
  124.     (set installDirSound (cat installDir "snd"))
  125.     (set installDirGfx (cat installDir "gfx"))
  126.     (set installDirText (cat installDir "text"))
  127.     (set installDirBrush (cat installDir "brush"))
  128.     (makedir installDirSound)
  129.     (makedir installDirGfx)
  130.     (makedir installDirText)
  131.     (makedir installDirBrush)
  132.     (set installDirSound (cat installDirSound "/"))
  133.     (set installDirGfx (cat installDirGfx "/"))
  134.     (set installDirText (cat installDirText "/"))
  135.     (set installDirBrush (cat installDirBrush "/"))
  136.     (CompleteStep)
  137.  
  138.     (set lhaCommand (cat lhaProgram " x \"%s\" " installDir))
  139.  
  140.     ((if (exists "Main.lha")
  141.         ((set installArchive "Main.lha"))
  142.         ((set installArchive "CyberspaceInstall1:Main.lha"))
  143.         )
  144.     )
  145.     (if (run (lhaCommand installArchive)
  146.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  147.         )
  148.         ((abort "\n\n" (lhaCommand installArchive)
  149.         "\n\nshowed an error."
  150.         ))
  151.     )
  152.     (CompleteStep)
  153.  
  154.     (set lhaCommand (cat lhaProgram " x \"%s\" " installDirSound))
  155.     (if (exists "Sounds.lha")
  156.         ((set installArchive "Sounds.lha"))
  157.         ((if (exists "CyberspaceInstall1:Sounds.lha")
  158.             ((set installArchive "CyberspaceInstall1:Sounds.lha"))
  159.             ((set installArchive "CyberspaceInstall2:Sounds.lha"))
  160.             )
  161.         )
  162.  
  163.     )
  164.     (if (run (lhaCommand installArchive)
  165.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  166.         )
  167.         ((abort "\n\n" (lhaCommand installArchive)
  168.         "\n\nshowed an error."
  169.         ))
  170.     )
  171.     (CompleteStep)
  172.  
  173.     (set lhaCommand (cat lhaProgram " x \"%s\" " installDirText))
  174.     ((if (exists "Text.lha")
  175.         ((set installArchive "Text.lha"))
  176.         ((set installArchive "CyberspaceInstall1:Text.lha"))
  177.         )
  178.     )
  179.     (if (run (lhaCommand installArchive)
  180.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  181.         )
  182.         ((abort "\n\n" (lhaCommand installArchive)
  183.         "\n\nshowed an error."
  184.         ))
  185.     )
  186.     (CompleteStep)
  187.  
  188.     (set lhaCommand (cat lhaProgram " x \"%s\" " installDirBrush))
  189.     ((if (exists "Gfx.lha")
  190.         ((set installArchive "Gfx.lha"))
  191.         ((set installArchive "CyberspaceInstall1:Gfx.lha"))
  192.         )
  193.     )
  194.     (if (run (lhaCommand installArchive)
  195.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  196.         )
  197.         ((abort "\n\n" (lhaCommand installArchive)
  198.         "\n\nshowed an error."
  199.         ))
  200.     )
  201.     (CompleteStep)
  202.     )
  203. )
  204.  
  205.  
  206. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  207. ;;;
  208. ;;;  UnpackArchives procedure
  209. ;;;
  210. ;;;  Allows the user to select and unpack LhA archives.
  211. ;;;
  212. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  213. (procedure UnpackArchivesDisk
  214.     ((SelectLHAProgram)
  215.     (CompleteStep)
  216.  
  217.     (message "Installer wird die Disketten vor Gebrauch formatieren. "
  218.     )
  219.  
  220.     (set formatCommand (cat "format drive df0: name \"%s\" NOICONS"))
  221.     (set installCommand (cat "install df0:"))
  222.  
  223.     (message "Bitte legen sie eine leere Diskette in df0:, diese wird formatiert."
  224.         "Die Diskette wird bootfähig sein, sie wird MAIN genannt werden."
  225.     )
  226.     (if (run (formatCommand "Cyberspace")
  227.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  228.         )
  229.         ((abort "\n\n" (formatCommand "Cyberspace")
  230.         "\n\nshowed an error."
  231.         ))
  232.     )
  233.     (if (run (installCommand)
  234.         (prompt ("\n\nInstalling \"%s\" ..."))
  235.         )
  236.         ((abort "\n\n" (installCommand)
  237.         "\n\nshowed an error."
  238.         ))
  239.     )
  240.     (set lhaCommand (cat lhaProgram " x \"%s\" Cyberspace:"))
  241.     ((if (exists "Main.lha")
  242.         ((run ("copy Main.lha t:Archive.lha")))
  243.         ((run ("copy CyberspaceInstall1:Main.lha t:Archive.lha")))
  244.         )
  245.     )
  246.     (message "Bitte die neuformatiere Diskette namens MAIN in irgendein Laufwerk legen.")
  247.     (set installArchive "t:Archive.lha")
  248.     (if (run (lhaCommand installArchive)
  249.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  250.         )
  251.         ((abort "\n\n" (lhaCommand installArchive)
  252.         "\n\nshowed an error."
  253.         ))
  254.     )
  255.     (CompleteStep)
  256.  
  257.     (message "Bitte legen sie eine leere Diskette in df0:, diese wird formatiert."
  258.         "Die Diskette wird bootfähig sein, sie wird SOUNDS genannt werden."
  259.     )
  260.     (if (run (formatCommand "CSSound")
  261.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  262.         )
  263.         ((abort "\n\n" (formatCommand "CSSound")
  264.         "\n\nshowed an error."
  265.         ))
  266.     )
  267.     (set lhaCommand (cat lhaProgram " x \"%s\" CSSound:"))
  268.     (if (exists "Sounds.lha")
  269.         ((run ("copy Sounds.lha t:Archive.lha")))
  270.         ((if (exists "CyberspaceInstall1:Sounds.lha")
  271.             ((run ("copy CyberspaceInstall1:Sounds.lha t:Archive.lha")))
  272.             ((run ("copy CyberspaceInstall2:Sounds.lha t:Archive.lha")))
  273.             )
  274.         )
  275.     )
  276.     (message "Bitte die neuformatiere Diskette namens SOUNDS in irgendein Laufwerk legen.")
  277.     (set installArchive "t:Archive.lha")
  278.     (if (run (lhaCommand installArchive)
  279.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  280.         )
  281.         ((abort "\n\n" (lhaCommand installArchive)
  282.         "\n\nshowed an error."
  283.         ))
  284.     )
  285.     (CompleteStep)
  286.  
  287.     (message "Bitte legen sie eine leere Diskette in df0:, diese wird formatiert."
  288.         "Die Diskette wird bootfähig sein, sie wird TEXT genannt werden."
  289.     )
  290.     (if (run (formatCommand "CSText")
  291.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  292.         )
  293.         ((abort "\n\n" (formatCommand "CSText")
  294.         "\n\nshowed an error."
  295.         ))
  296.     )
  297.     (set lhaCommand (cat lhaProgram " x \"%s\" CSText:"))
  298.     ((if (exists "Text.lha")
  299.         ((run ("copy Text.lha t:Archive.lha")))
  300.         ((run ("copy CyberspaceInstall1:Text.lha t:Archive.lha")))
  301.         )
  302.     )
  303.     (message "Bitte die neuformatiere Diskette namens TEXT in irgendein Laufwerk legen.")
  304.     (set installArchive "t:Archive.lha")
  305.     (if (run (lhaCommand installArchive)
  306.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  307.         )
  308.         ((abort "\n\n" (lhaCommand installArchive)
  309.         "\n\nshowed an error."
  310.         ))
  311.     )
  312.     (CompleteStep)
  313.  
  314.     (message "Bitte legen sie eine leere Diskette in df0:, diese wird formatiert."
  315.         "Die Diskette wird bootfähig sein, sie wird GRAFIK genannt werden."
  316.     )
  317.     (if (run (formatCommand "CSGfx")
  318.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  319.         )
  320.         ((abort "\n\n" (formatCommand "CSGfx")
  321.         "\n\nshowed an error."
  322.         ))
  323.     )
  324.     (set lhaCommand (cat lhaProgram " x \"%s\" CSGfx:"))
  325.     ((if (exists "Gfx.lha")
  326.         ((run ("copy Gfx.lha t:Archive.lha")))
  327.         ((run ("copy CyberspaceInstall1:Gfx.lha t:Archive.lha")))
  328.         )
  329.     )
  330.     (message "Bitte die neuformatiere Diskette namens GRAFIK in irgendein Laufwerk legen.")
  331.     (set installArchive "t:Archive.lha")
  332.     (if (run (lhaCommand installArchive)
  333.         (prompt ("\n\nUnpacking \"%s\" ..." installArchive))
  334.         )
  335.         ((abort "\n\n" (lhaCommand installArchive)
  336.         "\n\nshowed an error."
  337.         ))
  338.     )
  339.     (CompleteStep)
  340.     )
  341. )
  342.  
  343.  
  344. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  345. ;;;
  346. ;;;  ActionDiskInstallation procedure
  347. ;;;
  348. ;;;  Executes the work which is unique for installing a new package:
  349. ;;;  Unpacking the archive.
  350. ;;;
  351. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  352. (procedure ActionDiskInstallation
  353.     (UnpackArchivesDisk)
  354.     (CompleteStep)
  355.     ((if (exists "standard.dat")
  356.         ((run ("copy standard.dat Cyberspace:")))
  357.         ((run ("copy CyberspaceInstall1:standard.dat Cyberspace:")))
  358.         )
  359.     )
  360.     (complete 100)
  361.     (message "Cyberspace wurde als 4-Disketten-Version erstellt."
  362.         "Boot sie mit der MAIN-Diskette und legen sie die anderen "
  363.         "ein, wenn nötig."
  364.     )
  365. )
  366.  
  367.  
  368. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  369. ;;;
  370. ;;;  ActionHarddiskInstallation procedure
  371. ;;;
  372. ;;;  Executes the work which is unique for installing a new package:
  373. ;;;  Unpacking the archive.
  374. ;;;
  375. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  376. (procedure ActionHarddiskInstallation
  377.     (SelectInstallDir)
  378.     (UnpackArchivesHarddisk)
  379.     (CompleteStep)
  380.     ((if (exists "standard.dat")
  381.         ((set copyStandard (cat "copy standard.dat " installDirStandard)))
  382.         ((set copyStandard (cat "copy CyberspaceInstall1:standard.dat " installDirStandard)))
  383.         )
  384.     )
  385.     ((run (copyStandard)))
  386.     (complete 100)
  387.     (message "Cyberspace wurde in das Verzeichnis Cyberspace installiert."
  388.     )
  389. )
  390.  
  391.  
  392. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  393. ;;;
  394. ;;;   main program
  395. ;;;
  396. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  397.  
  398. (ShowCopyrightMessage)
  399.  
  400. (   (complete 0)
  401.  
  402.     (set repeatIt 1)
  403.     (set defaultChoice 1)
  404.     (while repeatIt
  405.     (   (set actionChoice (askchoice
  406.         (prompt "Bitte eine der folgenden Aktionen auswählen.")
  407.         (help "Auswahl von \"Installation auf Disketten\", wenn man "
  408.           "Cyberspace von Diskette spielen möchte. Es werden "
  409.           "4 Disketten benötigt.\n\n"
  410.           "Auswahl von \"Installation auf Festplatte\", wenn man "
  411.           "Cyberspace von Festplatte spielen möchte. Es werden "
  412.           "3 MB freie Festplattenkapazität benötigt.\n\n"
  413.           "Auswahl von  \"Fertig\", Wenn man Installation beenden will.\n\n"
  414.           @askchoices-help
  415.         )
  416.         (choices "Installation auf Diskette."
  417.              "Installation auf Festplatte."
  418.              "Fertig"
  419.         )
  420.         (default defaultChoice)
  421.     ))
  422.  
  423.     (select actionChoice
  424.     (   (set completeLevel 0)
  425.         (set completeIncrement 10)
  426.         (ActionDiskInstallation)
  427.         (set repeatIt 0)
  428.     )
  429.     (   (set completeLevel 0)
  430.         (set completeIncrement 10)
  431.         (ActionHarddiskInstallation)
  432.         (set repeatIt 0)
  433.     )
  434.     (   (set repeatIt 0)
  435.     ))
  436.     ))
  437.  
  438.     (complete 100)
  439. )
  440.